home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 075 (1988-11-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 075 (1988-11-15)(Ossowski, Stefan)(DE)(PD).adf
/
c
/
n.Mod
< prev
next >
Wrap
Text File
|
1988-08-14
|
1KB
|
54 lines
MODULE n; (* Geschrieben, compiliert und gelinkt mit M2Amiga PD-Programm *)
(* Teilweise sind Programmteile vom Demoprogramm enthalten. *)
(* Der Rest stammt von TAIFUN-Crew. *)
FROM SYSTEM IMPORT ADR;
FROM Intuition IMPORT DisplayAlert;
FROM Terminal IMPORT WriteString,WriteLn;
VAR
Cls : INTEGER;
al: RECORD
x1: INTEGER; s1: ARRAY [0..59] OF CHAR;
x2: INTEGER; s2: ARRAY [0..95] OF CHAR;
END (* RECORD *);
BEGIN
FOR Cls := 0 TO 50 DO
WriteString(" *** T A I F U N *** Die 75ste T A I F U N - Disk.");
WriteLn;
END;
FOR Cls := 0 TO 50 DO
WriteString(" Viele andere Public Domain Disketten erhalten Sie von:");
WriteLn;
END;
FOR Cls := 0 TO 50 DO
WriteString(" Stefan Ossowski, Veronikastr. 33, 4300 Essen 1, Tel 0201/788778");
WriteLn;
END;
WriteLn;
WriteLn;
WriteLn;
WriteString(" Hallo TAIFUN-User. ");
WriteLn;
WriteString(" Nun ist es soweit. Die 75ste TAIFUN ist fertig. ");
WriteLn;
WriteString(" Sie werden auf der Workbench mit vielen neuen Programmen erwartet.");
FOR Cls:= 0 TO 14 DO
WriteLn;
END ;
al.s1:="* T A I F U N 7 5 ";
al.x1:=96; al.s1[0]:=CHAR(60); al.s1[59]:=CHAR(2);
al.s2:="* Neue Programme gegen VIREN!!! Drücke linke Maustaste für weiter!!!!";
al.x2:=24; al.s2[0]:=CHAR(100); al.s2[77]:=CHAR(1);
IF DisplayAlert(0, ADR(al), 140) THEN END
END n.